home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 January / Macworld (1997-01).dmg / QuarkImmedia™1.01 Demo / Power Macintosh Demo / QuarkXPress - Int'l English / QuarkXPress™ Demo / QuarkXPress™ 3.32r5 Demo / QuarkXPress™ 3.32r5 Demo.rsrc / PSHD_1023 < prev    next >
Text File  |  1996-11-01  |  351b  |  7 lines
  1. /setdg{11 array astore/dg X [0 dg
  2.   {dup 3 1 roll sub neg exch}forall pop 11 -1 roll]/dltg X
  3.   /negg X[/negg load{{}{1 sub neg}ifelse dup .01 lt{pop 2}{1 exch div log}ifelse}
  4.   /exec load/negg load{{2 sub neg}if 5 mul dup cvi dup dup 4 2 roll sub}/exec load
  5.   /dltg load{4 -1 roll get mul}/exec load/dg load{3 -1 roll get add}/exec load]cvx
  6.   st1}def
  7.